/proFitdict 40 dict def proFitdict begin
/killbu {//md /bu get //md /bu {} put}def
/restorebu {//md exch /bu exch put}def
/killbn {//md /bn get //md /bn {} put}def
/restorebn {//md exch /bn exch put}def
/Pbd {bind def}def
/Pm {moveto}def /Prm {rmoveto} def /Pl {lineto}def
/Ps {gsave}def /Pr {grestore}def
/Pt {stroke}def 
/Pw {setlinewidth}def /Pc {setrgbcolor}def 
/Pg {setgray}def
/Pfb {newpath dup 5 -1 roll Pm 3 1 roll 
dup 3 -1 roll Pl Px Pl Px Pl fill}Pbd
/Pfr {newpath 4 -1 roll dup 5 1 roll Pm 2 1 roll 
dup 3 1 roll Pl Px 2 1 roll Pl Px 2 1 roll Pl fill}Pbd
/Po0 {3 -1 roll exch 2 mul add 3 
div 3 1 roll 2 mul add 3 div exch}Pbd
/Po1 {4 copy 10 2 roll Po0 8 2 roll Po0 6 2 roll curveto}Pbd
/Po2 {4 copy 3 -1 roll add 2 div 3 1 roll add 2 
div exch 2 copy 6 -2 roll 10 4 roll Po1}Pbd
/Pcol1 {1 exch sub 4 -1 roll mul 1 exch sub 3 1 roll}Pbd
/Pcol {1 exch sub dup dup currentrgbcolor 
Pcol1 Pcol1 Pcol1 setrgbcolor}Pbd
/Pshow {dup dup stringwidth pop 4 -1 roll 
exch sub exch length div 0 3 -1 roll ashow}Pbd
end